<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# LANGUAGE DeriveDataTypeable #-}</span><span>
</span><span id="line-2"></span><span class="hs-pragma">{-# LANGUAGE DeriveGeneric #-}</span><span>
</span><span id="line-3"></span><span>
</span><span id="line-4"></span><span class="hs-comment">-----------------------------------------------------------------------------</span><span>
</span><span id="line-5"></span><span class="hs-comment">-- |</span><span>
</span><span id="line-6"></span><span class="hs-comment">-- Module      :  Distribution.Verbosity</span><span>
</span><span id="line-7"></span><span class="hs-comment">-- Copyright   :  Ian Lynagh 2007</span><span>
</span><span id="line-8"></span><span class="hs-comment">-- License     :  BSD3</span><span>
</span><span id="line-9"></span><span class="hs-comment">--</span><span>
</span><span id="line-10"></span><span class="hs-comment">-- Maintainer  :  cabal-devel@haskell.org</span><span>
</span><span id="line-11"></span><span class="hs-comment">-- Portability :  portable</span><span>
</span><span id="line-12"></span><span class="hs-comment">--</span><span>
</span><span id="line-13"></span><span class="hs-comment">-- A 'Verbosity' type with associated utilities.</span><span>
</span><span id="line-14"></span><span class="hs-comment">--</span><span>
</span><span id="line-15"></span><span class="hs-comment">-- There are 4 standard verbosity levels from 'silent', 'normal',</span><span>
</span><span id="line-16"></span><span class="hs-comment">-- 'verbose' up to 'deafening'. This is used for deciding what logging</span><span>
</span><span id="line-17"></span><span class="hs-comment">-- messages to print.</span><span>
</span><span id="line-18"></span><span class="hs-comment">--</span><span>
</span><span id="line-19"></span><span class="hs-comment">-- Verbosity also is equipped with some internal settings which can be</span><span>
</span><span id="line-20"></span><span class="hs-comment">-- used to control at a fine granularity the verbosity of specific</span><span>
</span><span id="line-21"></span><span class="hs-comment">-- settings (e.g., so that you can trace only particular things you</span><span>
</span><span id="line-22"></span><span class="hs-comment">-- are interested in.)  It's important to note that the instances</span><span>
</span><span id="line-23"></span><span class="hs-comment">-- for 'Verbosity' assume that this does not exist.</span><span>
</span><span id="line-24"></span><span>
</span><span id="line-25"></span><span class="hs-comment">-- Verbosity for Cabal functions.</span><span>
</span><span id="line-26"></span><span>
</span><span id="line-27"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Distribution.Verbosity</span><span> </span><span class="hs-special">(</span><span>
</span><span id="line-28"></span><span>  </span><span class="annot"><span class="hs-comment">-- * Verbosity</span></span><span>
</span><span id="line-29"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier">Verbosity</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-30"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#silent"><span class="hs-identifier">silent</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#normal"><span class="hs-identifier">normal</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#verbose"><span class="hs-identifier">verbose</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#deafening"><span class="hs-identifier">deafening</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-31"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#moreVerbose"><span class="hs-identifier">moreVerbose</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#lessVerbose"><span class="hs-identifier">lessVerbose</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseQuiet"><span class="hs-identifier">isVerboseQuiet</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-32"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#intToVerbosity"><span class="hs-identifier">intToVerbosity</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#flagToVerbosity"><span class="hs-identifier">flagToVerbosity</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-33"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#showForCabal"><span class="hs-identifier">showForCabal</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#showForGHC"><span class="hs-identifier">showForGHC</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-34"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#verboseNoFlags"><span class="hs-identifier">verboseNoFlags</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#verboseHasFlags"><span class="hs-identifier">verboseHasFlags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-35"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#modifyVerbosity"><span class="hs-identifier">modifyVerbosity</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-36"></span><span>
</span><span id="line-37"></span><span>  </span><span class="annot"><span class="hs-comment">-- * Call stacks</span></span><span>
</span><span id="line-38"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#verboseCallSite"><span class="hs-identifier">verboseCallSite</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#verboseCallStack"><span class="hs-identifier">verboseCallStack</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-39"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseCallSite"><span class="hs-identifier">isVerboseCallSite</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseCallStack"><span class="hs-identifier">isVerboseCallStack</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-40"></span><span>
</span><span id="line-41"></span><span>  </span><span class="annot"><span class="hs-comment">-- * Output markets</span></span><span>
</span><span id="line-42"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#verboseMarkOutput"><span class="hs-identifier">verboseMarkOutput</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseMarkOutput"><span class="hs-identifier">isVerboseMarkOutput</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-43"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#verboseUnmarkOutput"><span class="hs-identifier">verboseUnmarkOutput</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-44"></span><span>
</span><span id="line-45"></span><span>  </span><span class="annot"><span class="hs-comment">-- * line-wrapping</span></span><span>
</span><span id="line-46"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#verboseNoWrap"><span class="hs-identifier">verboseNoWrap</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseNoWrap"><span class="hs-identifier">isVerboseNoWrap</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-47"></span><span>
</span><span id="line-48"></span><span>  </span><span class="annot"><span class="hs-comment">-- * timestamps</span></span><span>
</span><span id="line-49"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#verboseTimestamp"><span class="hs-identifier">verboseTimestamp</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseTimestamp"><span class="hs-identifier">isVerboseTimestamp</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-50"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#verboseNoTimestamp"><span class="hs-identifier">verboseNoTimestamp</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-51"></span><span>
</span><span id="line-52"></span><span>  </span><span class="annot"><span class="hs-comment">-- * Stderr</span></span><span>
</span><span id="line-53"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#verboseStderr"><span class="hs-identifier">verboseStderr</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseStderr"><span class="hs-identifier">isVerboseStderr</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-54"></span><span>  </span><span class="annot"><a href="Distribution.Verbosity.html#verboseNoStderr"><span class="hs-identifier">verboseNoStderr</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-55"></span><span>  </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-56"></span><span>
</span><span id="line-57"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Prelude.html#"><span class="hs-identifier">Prelude</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-58"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Compat.Prelude.html"><span class="hs-identifier">Distribution.Compat.Prelude</span></a></span><span>
</span><span id="line-59"></span><span>
</span><span id="line-60"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.ReadE.html"><span class="hs-identifier">Distribution.ReadE</span></a></span><span>
</span><span id="line-61"></span><span>
</span><span id="line-62"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.List.html#"><span class="hs-identifier">Data.List</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.OldList.html#elemIndex"><span class="hs-identifier">elemIndex</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-63"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Parsec.html"><span class="hs-identifier">Distribution.Parsec</span></a></span><span>
</span><span id="line-64"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Pretty.html"><span class="hs-identifier">Distribution.Pretty</span></a></span><span>
</span><span id="line-65"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Verbosity.Internal.html"><span class="hs-identifier">Distribution.Verbosity.Internal</span></a></span><span>
</span><span id="line-66"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Utils.Generic.html"><span class="hs-identifier">Distribution.Utils.Generic</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Utils.Generic.html#isAsciiAlpha"><span class="hs-identifier">isAsciiAlpha</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-67"></span><span>
</span><span id="line-68"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="../../containers/src/Data.Set.html#"><span class="hs-identifier">Data.Set</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Set</span></span><span>
</span><span id="line-69"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.Compat.CharParsing.html"><span class="hs-identifier">Distribution.Compat.CharParsing</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
</span><span id="line-70"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="../../pretty/src/Text.PrettyPrint.html#"><span class="hs-identifier">Text.PrettyPrint</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">PP</span></span><span>
</span><span id="line-71"></span><span>
</span><span id="line-72"></span><span id="local-6989586621679652172"><span id="local-6989586621679652173"></span></span><span class="hs-keyword">data</span><span> </span><span id="Verbosity"><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-var">Verbosity</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="Verbosity"><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-var">Verbosity</span></a></span></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-73"></span><span>    </span><span id="vLevel"><span class="annot"><span class="annottext">Verbosity -&gt; VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var hs-var">vLevel</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.Internal.html#VerbosityLevel"><span class="hs-identifier hs-type">VerbosityLevel</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-74"></span><span>    </span><span id="vFlags"><span class="annot"><span class="annottext">Verbosity -&gt; Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var hs-var">vFlags</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../containers/src/Data.Set.Internal.html#Set"><span class="hs-identifier hs-type">Set</span></a></span><span> </span><span class="annot"><a href="Distribution.Verbosity.Internal.html#VerbosityFlag"><span class="hs-identifier hs-type">VerbosityFlag</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-75"></span><span>    </span><span id="vQuiet"><span class="annot"><span class="annottext">Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#vQuiet"><span class="hs-identifier hs-var hs-var">vQuiet</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-76"></span><span>  </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall x. Verbosity -&gt; Rep Verbosity x)
-&gt; (forall x. Rep Verbosity x -&gt; Verbosity) -&gt; Generic Verbosity
forall x. Rep Verbosity x -&gt; Verbosity
forall x. Verbosity -&gt; Rep Verbosity x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep Verbosity x -&gt; Verbosity
$cfrom :: forall x. Verbosity -&gt; Rep Verbosity x
</span><a href="../../base/src/GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679652150"><span id="local-6989586621679652152"><span id="local-6989586621679652163"><span class="annot"><span class="annottext">Int -&gt; Verbosity -&gt; ShowS
[Verbosity] -&gt; ShowS
Verbosity -&gt; String
(Int -&gt; Verbosity -&gt; ShowS)
-&gt; (Verbosity -&gt; String)
-&gt; ([Verbosity] -&gt; ShowS)
-&gt; Show Verbosity
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [Verbosity] -&gt; ShowS
$cshowList :: [Verbosity] -&gt; ShowS
show :: Verbosity -&gt; String
$cshow :: Verbosity -&gt; String
showsPrec :: Int -&gt; Verbosity -&gt; ShowS
$cshowsPrec :: Int -&gt; Verbosity -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679652122"><span id="local-6989586621679652141"><span id="local-6989586621679652144"><span id="local-6989586621679652146"><span class="annot"><span class="annottext">ReadPrec [Verbosity]
ReadPrec Verbosity
Int -&gt; ReadS Verbosity
ReadS [Verbosity]
(Int -&gt; ReadS Verbosity)
-&gt; ReadS [Verbosity]
-&gt; ReadPrec Verbosity
-&gt; ReadPrec [Verbosity]
-&gt; Read Verbosity
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [Verbosity]
$creadListPrec :: ReadPrec [Verbosity]
readPrec :: ReadPrec Verbosity
$creadPrec :: ReadPrec Verbosity
readList :: ReadS [Verbosity]
$creadList :: ReadS [Verbosity]
readsPrec :: Int -&gt; ReadS Verbosity
$creadsPrec :: Int -&gt; ReadS Verbosity
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/Data.Typeable.Internal.html#Typeable"><span class="hs-identifier hs-type">Typeable</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-77"></span><span>
</span><span id="line-78"></span><span class="annot"><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-type">mkVerbosity</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.Internal.html#VerbosityLevel"><span class="hs-identifier hs-type">VerbosityLevel</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-79"></span><span id="mkVerbosity"><span class="annot"><span class="annottext">mkVerbosity :: VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var hs-var">mkVerbosity</span></a></span></span><span> </span><span id="local-6989586621679652117"><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="#local-6989586621679652117"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity :: VerbosityLevel -&gt; Set VerbosityFlag -&gt; Bool -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">vLevel :: VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var">vLevel</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="#local-6989586621679652117"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">vFlags :: Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var">vFlags</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Set VerbosityFlag
forall a. Set a
</span><a href="../../containers/src/Data.Set.Internal.html#empty"><span class="hs-identifier hs-var">Set.empty</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">vQuiet :: Bool
</span><a href="Distribution.Verbosity.html#vQuiet"><span class="hs-identifier hs-var">vQuiet</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-80"></span><span>
</span><span id="line-81"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679652113"><span class="annot"><span class="hs-identifier hs-type">Eq</span></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-82"></span><span>    </span><span id="local-6989586621679652109"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652109"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679652108"><span class="annot"><span class="annottext">== :: Verbosity -&gt; Verbosity -&gt; Bool
</span><span class="hs-operator hs-var hs-var hs-var hs-var">==</span></span></span><span> </span><span id="local-6989586621679652107"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652107"><span class="hs-identifier hs-var">y</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var hs-var">vLevel</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652109"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; VerbosityLevel -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var hs-var">vLevel</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652107"><span class="hs-identifier hs-var">y</span></a></span><span>
</span><span id="line-83"></span><span>
</span><span id="line-84"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679652092"><span id="local-6989586621679652094"><span id="local-6989586621679652096"><span id="local-6989586621679652098"><span id="local-6989586621679652100"><span id="local-6989586621679652102"><span class="annot"><span class="hs-identifier hs-type">Ord</span></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span></span></span></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-85"></span><span>    </span><span id="local-6989586621679652088"><span class="annot"><span class="annottext">compare :: Verbosity -&gt; Verbosity -&gt; Ordering
</span><span class="hs-identifier hs-var hs-var hs-var hs-var">compare</span></span></span><span> </span><span id="local-6989586621679652086"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652086"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679652085"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652085"><span class="hs-identifier hs-var">y</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; VerbosityLevel -&gt; Ordering
forall a. Ord a =&gt; a -&gt; a -&gt; Ordering
</span><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var hs-var">vLevel</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652086"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var hs-var">vLevel</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652085"><span class="hs-identifier hs-var">y</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-86"></span><span>
</span><span id="line-87"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679652071"><span id="local-6989586621679652073"><span id="local-6989586621679652075"><span id="local-6989586621679652077"><span id="local-6989586621679652081"><span id="local-6989586621679652083"><span class="annot"><a href="../../base/src/GHC.Enum.html#Enum"><span class="hs-identifier hs-type">Enum</span></a></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span></span></span></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-88"></span><span>    </span><span id="local-6989586621679652067"><span class="annot"><span class="annottext">toEnum :: Int -&gt; Verbosity
</span><a href="../../base/src/GHC.Enum.html#toEnum"><span class="hs-identifier hs-var hs-var hs-var hs-var">toEnum</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(VerbosityLevel -&gt; Verbosity)
-&gt; (Int -&gt; VerbosityLevel) -&gt; Int -&gt; Verbosity
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; VerbosityLevel
forall a. Enum a =&gt; Int -&gt; a
</span><a href="../../base/src/GHC.Enum.html#toEnum"><span class="hs-identifier hs-var">toEnum</span></a></span><span>
</span><span id="line-89"></span><span>    </span><span id="local-6989586621679652063"><span class="annot"><span class="annottext">fromEnum :: Verbosity -&gt; Int
</span><a href="../../base/src/GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var hs-var hs-var hs-var">fromEnum</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="../../base/src/GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span> </span><span class="annot"><span class="annottext">(VerbosityLevel -&gt; Int)
-&gt; (Verbosity -&gt; VerbosityLevel) -&gt; Verbosity -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var hs-var">vLevel</span></a></span><span>
</span><span id="line-90"></span><span>
</span><span id="line-91"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/GHC.Enum.html#Bounded"><span class="hs-identifier hs-type">Bounded</span></a></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-92"></span><span>    </span><span id="local-6989586621679652055"><span class="annot"><span class="annottext">minBound :: Verbosity
</span><a href="../../base/src/GHC.Enum.html#minBound"><span class="hs-identifier hs-var hs-var hs-var hs-var">minBound</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
forall a. Bounded a =&gt; a
</span><a href="../../base/src/GHC.Enum.html#minBound"><span class="hs-identifier hs-var">minBound</span></a></span><span>
</span><span id="line-93"></span><span>    </span><span id="local-6989586621679652052"><span class="annot"><span class="annottext">maxBound :: Verbosity
</span><a href="../../base/src/GHC.Enum.html#maxBound"><span class="hs-identifier hs-var hs-var hs-var hs-var">maxBound</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
forall a. Bounded a =&gt; a
</span><a href="../../base/src/GHC.Enum.html#maxBound"><span class="hs-identifier hs-var">maxBound</span></a></span><span>
</span><span id="line-94"></span><span>
</span><span id="line-95"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679652045"><span id="local-6989586621679652047"><span id="local-6989586621679652049"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span></span></span></span><span>
</span><span id="line-96"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679652038"><span id="local-6989586621679652040"><span class="annot"><a href="Distribution.Utils.Structured.html#Structured"><span class="hs-identifier hs-type">Structured</span></a></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span></span></span><span>
</span><span id="line-97"></span><span>
</span><span id="line-98"></span><span class="hs-comment">-- We shouldn't print /anything/ unless an error occurs in silent mode</span><span>
</span><span id="line-99"></span><span class="annot"><a href="Distribution.Verbosity.html#silent"><span class="hs-identifier hs-type">silent</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-100"></span><span id="silent"><span class="annot"><span class="annottext">silent :: Verbosity
</span><a href="Distribution.Verbosity.html#silent"><span class="hs-identifier hs-var hs-var">silent</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Silent"><span class="hs-identifier hs-var">Silent</span></a></span><span>
</span><span id="line-101"></span><span>
</span><span id="line-102"></span><span class="hs-comment">-- Print stuff we want to see by default</span><span>
</span><span id="line-103"></span><span class="annot"><a href="Distribution.Verbosity.html#normal"><span class="hs-identifier hs-type">normal</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-104"></span><span id="normal"><span class="annot"><span class="annottext">normal :: Verbosity
</span><a href="Distribution.Verbosity.html#normal"><span class="hs-identifier hs-var hs-var">normal</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Normal"><span class="hs-identifier hs-var">Normal</span></a></span><span>
</span><span id="line-105"></span><span>
</span><span id="line-106"></span><span class="hs-comment">-- Be more verbose about what's going on</span><span>
</span><span id="line-107"></span><span class="annot"><a href="Distribution.Verbosity.html#verbose"><span class="hs-identifier hs-type">verbose</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-108"></span><span id="verbose"><span class="annot"><span class="annottext">verbose :: Verbosity
</span><a href="Distribution.Verbosity.html#verbose"><span class="hs-identifier hs-var hs-var">verbose</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Verbose"><span class="hs-identifier hs-var">Verbose</span></a></span><span>
</span><span id="line-109"></span><span>
</span><span id="line-110"></span><span class="hs-comment">-- Not only are we verbose ourselves (perhaps even noisier than when</span><span>
</span><span id="line-111"></span><span class="hs-comment">-- being &quot;verbose&quot;), but we tell everything we run to be verbose too</span><span>
</span><span id="line-112"></span><span class="annot"><a href="Distribution.Verbosity.html#deafening"><span class="hs-identifier hs-type">deafening</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-113"></span><span id="deafening"><span class="annot"><span class="annottext">deafening :: Verbosity
</span><a href="Distribution.Verbosity.html#deafening"><span class="hs-identifier hs-var hs-var">deafening</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Deafening"><span class="hs-identifier hs-var">Deafening</span></a></span><span>
</span><span id="line-114"></span><span>
</span><span id="line-115"></span><span class="annot"><a href="Distribution.Verbosity.html#moreVerbose"><span class="hs-identifier hs-type">moreVerbose</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-116"></span><span id="moreVerbose"><span class="annot"><span class="annottext">moreVerbose :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#moreVerbose"><span class="hs-identifier hs-var hs-var">moreVerbose</span></a></span></span><span> </span><span id="local-6989586621679652032"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652032"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-117"></span><span>    </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var hs-var">vLevel</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652032"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-118"></span><span>        </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Silent"><span class="hs-identifier hs-var">Silent</span></a></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652032"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-comment">-- silent should stay silent</span><span>
</span><span id="line-119"></span><span>        </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Normal"><span class="hs-identifier hs-var">Normal</span></a></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652032"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">vLevel :: VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var">vLevel</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Verbose"><span class="hs-identifier hs-var">Verbose</span></a></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-120"></span><span>        </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Verbose"><span class="hs-identifier hs-var">Verbose</span></a></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652032"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">vLevel :: VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var">vLevel</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Deafening"><span class="hs-identifier hs-var">Deafening</span></a></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-121"></span><span>        </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Deafening"><span class="hs-identifier hs-var">Deafening</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652032"><span class="hs-identifier hs-var">v</span></a></span><span>
</span><span id="line-122"></span><span>
</span><span id="line-123"></span><span class="annot"><a href="Distribution.Verbosity.html#lessVerbose"><span class="hs-identifier hs-type">lessVerbose</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-124"></span><span id="lessVerbose"><span class="annot"><span class="annottext">lessVerbose :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#lessVerbose"><span class="hs-identifier hs-var hs-var">lessVerbose</span></a></span></span><span> </span><span id="local-6989586621679652031"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652031"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-125"></span><span>    </span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseQuiet"><span class="hs-identifier hs-var">verboseQuiet</span></a></span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; Verbosity) -&gt; Verbosity -&gt; Verbosity
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-126"></span><span>    </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var hs-var">vLevel</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652031"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-127"></span><span>        </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Deafening"><span class="hs-identifier hs-var">Deafening</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652031"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-comment">-- deafening stays deafening</span><span>
</span><span id="line-128"></span><span>        </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Verbose"><span class="hs-identifier hs-var">Verbose</span></a></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652031"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">vLevel :: VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var">vLevel</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Normal"><span class="hs-identifier hs-var">Normal</span></a></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-129"></span><span>        </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Normal"><span class="hs-identifier hs-var">Normal</span></a></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652031"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">vLevel :: VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var">vLevel</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Silent"><span class="hs-identifier hs-var">Silent</span></a></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-130"></span><span>        </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Silent"><span class="hs-identifier hs-var">Silent</span></a></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652031"><span class="hs-identifier hs-var">v</span></a></span><span>
</span><span id="line-131"></span><span>
</span><span id="line-132"></span><span class="hs-comment">-- | Combinator for transforming verbosity level while retaining the</span><span>
</span><span id="line-133"></span><span class="hs-comment">-- original hidden state.</span><span>
</span><span id="line-134"></span><span class="hs-comment">--</span><span>
</span><span id="line-135"></span><span class="hs-comment">-- For instance, the following property holds</span><span>
</span><span id="line-136"></span><span class="hs-comment">--</span><span>
</span><span id="line-137"></span><span class="hs-comment">-- prop&gt; isVerboseNoWrap (modifyVerbosity (max verbose) v) == isVerboseNoWrap v</span><span>
</span><span id="line-138"></span><span class="hs-comment">--</span><span>
</span><span id="line-139"></span><span class="hs-comment">-- __Note__: you can use @modifyVerbosity (const v1) v0@ to overwrite</span><span>
</span><span id="line-140"></span><span class="hs-comment">-- @v1@'s flags with @v0@'s flags.</span><span>
</span><span id="line-141"></span><span class="hs-comment">--</span><span>
</span><span id="line-142"></span><span class="hs-comment">-- @since 2.0.1.0</span><span>
</span><span id="line-143"></span><span class="annot"><a href="Distribution.Verbosity.html#modifyVerbosity"><span class="hs-identifier hs-type">modifyVerbosity</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-144"></span><span id="modifyVerbosity"><span class="annot"><span class="annottext">modifyVerbosity :: (Verbosity -&gt; Verbosity) -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#modifyVerbosity"><span class="hs-identifier hs-var hs-var">modifyVerbosity</span></a></span></span><span> </span><span id="local-6989586621679652029"><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="#local-6989586621679652029"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679652028"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652028"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652028"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">vLevel :: VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var">vLevel</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var hs-var">vLevel</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="#local-6989586621679652029"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679652028"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-145"></span><span>
</span><span id="line-146"></span><span class="annot"><a href="Distribution.Verbosity.html#intToVerbosity"><span class="hs-identifier hs-type">intToVerbosity</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-147"></span><span id="intToVerbosity"><span class="annot"><span class="annottext">intToVerbosity :: Int -&gt; Maybe Verbosity
</span><a href="Distribution.Verbosity.html#intToVerbosity"><span class="hs-identifier hs-var hs-var">intToVerbosity</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Maybe Verbosity
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Silent"><span class="hs-identifier hs-var">Silent</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-148"></span><span class="annot"><a href="Distribution.Verbosity.html#intToVerbosity"><span class="hs-identifier hs-var">intToVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Maybe Verbosity
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Normal"><span class="hs-identifier hs-var">Normal</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-149"></span><span class="annot"><a href="Distribution.Verbosity.html#intToVerbosity"><span class="hs-identifier hs-var">intToVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Maybe Verbosity
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Verbose"><span class="hs-identifier hs-var">Verbose</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-150"></span><span class="annot"><a href="Distribution.Verbosity.html#intToVerbosity"><span class="hs-identifier hs-var">intToVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">3</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Maybe Verbosity
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Deafening"><span class="hs-identifier hs-var">Deafening</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-151"></span><span class="annot"><a href="Distribution.Verbosity.html#intToVerbosity"><span class="hs-identifier hs-var">intToVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe Verbosity
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-152"></span><span>
</span><span id="line-153"></span><span class="hs-comment">-- | Parser verbosity</span><span>
</span><span id="line-154"></span><span class="hs-comment">--</span><span>
</span><span id="line-155"></span><span class="hs-comment">-- &gt;&gt;&gt; explicitEitherParsec parsecVerbosity &quot;normal&quot;</span><span>
</span><span id="line-156"></span><span class="hs-comment">-- Right (Verbosity {vLevel = Normal, vFlags = fromList [], vQuiet = False})</span><span>
</span><span id="line-157"></span><span class="hs-comment">--</span><span>
</span><span id="line-158"></span><span class="hs-comment">-- &gt;&gt;&gt; explicitEitherParsec parsecVerbosity &quot;normal+nowrap  &quot;</span><span>
</span><span id="line-159"></span><span class="hs-comment">-- Right (Verbosity {vLevel = Normal, vFlags = fromList [VNoWrap], vQuiet = False})</span><span>
</span><span id="line-160"></span><span class="hs-comment">--</span><span>
</span><span id="line-161"></span><span class="hs-comment">-- &gt;&gt;&gt; explicitEitherParsec parsecVerbosity &quot;normal+nowrap +markoutput&quot;</span><span>
</span><span id="line-162"></span><span class="hs-comment">-- Right (Verbosity {vLevel = Normal, vFlags = fromList [VNoWrap,VMarkOutput], vQuiet = False})</span><span>
</span><span id="line-163"></span><span class="hs-comment">--</span><span>
</span><span id="line-164"></span><span class="hs-comment">-- &gt;&gt;&gt; explicitEitherParsec parsecVerbosity &quot;normal +nowrap +markoutput&quot;</span><span>
</span><span id="line-165"></span><span class="hs-comment">-- Right (Verbosity {vLevel = Normal, vFlags = fromList [VNoWrap,VMarkOutput], vQuiet = False})</span><span>
</span><span id="line-166"></span><span class="hs-comment">--</span><span>
</span><span id="line-167"></span><span class="hs-comment">-- &gt;&gt;&gt; explicitEitherParsec parsecVerbosity &quot;normal+nowrap+markoutput&quot;</span><span>
</span><span id="line-168"></span><span class="hs-comment">-- Right (Verbosity {vLevel = Normal, vFlags = fromList [VNoWrap,VMarkOutput], vQuiet = False})</span><span>
</span><span id="line-169"></span><span class="hs-comment">--</span><span>
</span><span id="line-170"></span><span class="hs-comment">-- &gt;&gt;&gt; explicitEitherParsec parsecVerbosity &quot;deafening+nowrap+stdout+stderr+callsite+callstack&quot;</span><span>
</span><span id="line-171"></span><span class="hs-comment">-- Right (Verbosity {vLevel = Deafening, vFlags = fromList [VCallStack,VCallSite,VNoWrap,VStderr], vQuiet = False})</span><span>
</span><span id="line-172"></span><span class="hs-comment">--</span><span>
</span><span id="line-173"></span><span class="hs-comment">-- /Note:/ this parser will eat trailing spaces.</span><span>
</span><span id="line-174"></span><span class="hs-comment">--</span><span>
</span><span id="line-175"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Distribution.Parsec.html#Parsec"><span class="hs-identifier hs-type">Parsec</span></a></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-176"></span><span>    </span><span id="local-6989586621679652022"><span class="annot"><span class="annottext">parsec :: forall (m :: * -&gt; *). CabalParsing m =&gt; m Verbosity
</span><a href="Distribution.Parsec.html#parsec"><span class="hs-identifier hs-var hs-var hs-var hs-var">parsec</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">m Verbosity
forall (m :: * -&gt; *). CabalParsing m =&gt; m Verbosity
</span><a href="Distribution.Verbosity.html#parsecVerbosity"><span class="hs-identifier hs-var">parsecVerbosity</span></a></span><span>
</span><span id="line-177"></span><span>
</span><span id="line-178"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679652017"><span class="annot"><a href="Distribution.Pretty.html#Pretty"><span class="hs-identifier hs-type">Pretty</span></a></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-179"></span><span>    </span><span id="local-6989586621679652015"><span class="annot"><span class="annottext">pretty :: Verbosity -&gt; Doc
</span><a href="Distribution.Pretty.html#pretty"><span class="hs-identifier hs-var hs-var hs-var hs-var">pretty</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#text"><span class="hs-identifier hs-var">PP.text</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Doc) -&gt; (Verbosity -&gt; String) -&gt; Verbosity -&gt; Doc
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; String
</span><a href="Distribution.Verbosity.html#showForCabal"><span class="hs-identifier hs-var">showForCabal</span></a></span><span>
</span><span id="line-180"></span><span>
</span><span id="line-181"></span><span id="local-6989586621679652012"><span class="annot"><a href="Distribution.Verbosity.html#parsecVerbosity"><span class="hs-identifier hs-type">parsecVerbosity</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Parsec.html#CabalParsing"><span class="hs-identifier hs-type">CabalParsing</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679652012"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679652012"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span></span><span>
</span><span id="line-182"></span><span id="parsecVerbosity"><span class="annot"><span class="annottext">parsecVerbosity :: forall (m :: * -&gt; *). CabalParsing m =&gt; m Verbosity
</span><a href="Distribution.Verbosity.html#parsecVerbosity"><span class="hs-identifier hs-var hs-var">parsecVerbosity</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">m Verbosity
</span><a href="#local-6989586621679651997"><span class="hs-identifier hs-var">parseIntVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">m Verbosity -&gt; m Verbosity -&gt; m Verbosity
forall (f :: * -&gt; *) a. Alternative f =&gt; f a -&gt; f a -&gt; f a
</span><a href="../../base/src/GHC.Base.html#%3C%7C%3E"><span class="hs-operator hs-var">&lt;|&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">m Verbosity
</span><a href="#local-6989586621679651995"><span class="hs-identifier hs-var">parseStringVerbosity</span></a></span><span>
</span><span id="line-183"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-184"></span><span>    </span><span id="local-6989586621679651997"><span class="annot"><span class="annottext">parseIntVerbosity :: m Verbosity
</span><a href="#local-6989586621679651997"><span class="hs-identifier hs-var hs-var">parseIntVerbosity</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-185"></span><span>        </span><span id="local-6989586621679651987"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679651987"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">m Int
forall (m :: * -&gt; *) a. (CharParsing m, Integral a) =&gt; m a
</span><a href="Distribution.Compat.CharParsing.html#integral"><span class="hs-identifier hs-var">P.integral</span></a></span><span>
</span><span id="line-186"></span><span>        </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Verbosity
</span><a href="Distribution.Verbosity.html#intToVerbosity"><span class="hs-identifier hs-var">intToVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679651987"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-187"></span><span>            </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679651985"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651985"><span class="hs-identifier hs-var">v</span></a></span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; m Verbosity
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651985"><span class="hs-identifier hs-var">v</span></a></span><span>
</span><span id="line-188"></span><span>            </span><span class="annot"><span class="annottext">Maybe Verbosity
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String -&gt; m Verbosity
forall (m :: * -&gt; *) a. Parsing m =&gt; String -&gt; m a
</span><a href="Distribution.Compat.Parsing.html#unexpected"><span class="hs-identifier hs-var">P.unexpected</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; m Verbosity) -&gt; String -&gt; m Verbosity
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Bad integral verbosity: &quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679651987"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;. Valid values are 0..3&quot;</span></span><span>
</span><span id="line-189"></span><span>
</span><span id="line-190"></span><span>    </span><span id="local-6989586621679651995"><span class="annot"><span class="annottext">parseStringVerbosity :: m Verbosity
</span><a href="#local-6989586621679651995"><span class="hs-identifier hs-var hs-var">parseStringVerbosity</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-191"></span><span>        </span><span id="local-6989586621679651973"><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="#local-6989586621679651973"><span class="hs-identifier hs-var">level</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">m VerbosityLevel
</span><a href="#local-6989586621679651972"><span class="hs-identifier hs-var">parseVerbosityLevel</span></a></span><span>
</span><span id="line-192"></span><span>        </span><span class="annot"><span class="annottext">()
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">m ()
forall (m :: * -&gt; *). CharParsing m =&gt; m ()
</span><a href="Distribution.Compat.CharParsing.html#spaces"><span class="hs-identifier hs-var">P.spaces</span></a></span><span>
</span><span id="line-193"></span><span>        </span><span id="local-6989586621679651970"><span class="annot"><span class="annottext">[Verbosity -&gt; Verbosity]
</span><a href="#local-6989586621679651970"><span class="hs-identifier hs-var">flags</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">m (Verbosity -&gt; Verbosity) -&gt; m [Verbosity -&gt; Verbosity]
forall (f :: * -&gt; *) a. Alternative f =&gt; f a -&gt; f [a]
</span><a href="../../base/src/GHC.Base.html#many"><span class="hs-identifier hs-var">many</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">m (Verbosity -&gt; Verbosity)
</span><a href="#local-6989586621679651968"><span class="hs-identifier hs-var">parseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">m (Verbosity -&gt; Verbosity) -&gt; m () -&gt; m (Verbosity -&gt; Verbosity)
forall (f :: * -&gt; *) a b. Applicative f =&gt; f a -&gt; f b -&gt; f a
</span><a href="../../base/src/GHC.Base.html#%3C%2A"><span class="hs-operator hs-var">&lt;*</span></a></span><span> </span><span class="annot"><span class="annottext">m ()
forall (m :: * -&gt; *). CharParsing m =&gt; m ()
</span><a href="Distribution.Compat.CharParsing.html#spaces"><span class="hs-identifier hs-var">P.spaces</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-194"></span><span>        </span><span class="annot"><span class="annottext">Verbosity -&gt; m Verbosity
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; m Verbosity) -&gt; Verbosity -&gt; m Verbosity
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; (Verbosity -&gt; Verbosity) -&gt; Verbosity)
-&gt; Verbosity -&gt; [Verbosity -&gt; Verbosity] -&gt; Verbosity
forall (t :: * -&gt; *) b a.
Foldable t =&gt;
(b -&gt; a -&gt; b) -&gt; b -&gt; t a -&gt; b
</span><a href="../../base/src/Data.Foldable.html#foldl%27"><span class="hs-identifier hs-var">foldl'</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">((Verbosity -&gt; Verbosity) -&gt; Verbosity -&gt; Verbosity)
-&gt; Verbosity -&gt; (Verbosity -&gt; Verbosity) -&gt; Verbosity
forall a b c. (a -&gt; b -&gt; c) -&gt; b -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#flip"><span class="hs-identifier hs-var">flip</span></a></span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; Verbosity) -&gt; Verbosity -&gt; Verbosity
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">($)</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">VerbosityLevel -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#mkVerbosity"><span class="hs-identifier hs-var">mkVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="#local-6989586621679651973"><span class="hs-identifier hs-var">level</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[Verbosity -&gt; Verbosity]
</span><a href="#local-6989586621679651970"><span class="hs-identifier hs-var">flags</span></a></span><span>
</span><span id="line-195"></span><span>
</span><span id="line-196"></span><span>    </span><span id="local-6989586621679651972"><span class="annot"><span class="annottext">parseVerbosityLevel :: m VerbosityLevel
</span><a href="#local-6989586621679651972"><span class="hs-identifier hs-var hs-var">parseVerbosityLevel</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-197"></span><span>        </span><span id="local-6989586621679651956"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679651956"><span class="hs-identifier hs-var">token</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; m String
forall (m :: * -&gt; *). CharParsing m =&gt; (Char -&gt; Bool) -&gt; m String
</span><a href="Distribution.Compat.CharParsing.html#munch1"><span class="hs-identifier hs-var">P.munch1</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="Distribution.Utils.Generic.html#isAsciiAlpha"><span class="hs-identifier hs-var">isAsciiAlpha</span></a></span><span>
</span><span id="line-198"></span><span>        </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679651956"><span class="hs-identifier hs-var">token</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-199"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;silent&quot;</span></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; m VerbosityLevel
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Silent"><span class="hs-identifier hs-var">Silent</span></a></span><span>
</span><span id="line-200"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;normal&quot;</span></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; m VerbosityLevel
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Normal"><span class="hs-identifier hs-var">Normal</span></a></span><span>
</span><span id="line-201"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;verbose&quot;</span></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; m VerbosityLevel
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Verbose"><span class="hs-identifier hs-var">Verbose</span></a></span><span>
</span><span id="line-202"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;debug&quot;</span></span><span>     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; m VerbosityLevel
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Deafening"><span class="hs-identifier hs-var">Deafening</span></a></span><span>
</span><span id="line-203"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;deafening&quot;</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; m VerbosityLevel
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Deafening"><span class="hs-identifier hs-var">Deafening</span></a></span><span>
</span><span id="line-204"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span>           </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String -&gt; m VerbosityLevel
forall (m :: * -&gt; *) a. Parsing m =&gt; String -&gt; m a
</span><a href="Distribution.Compat.Parsing.html#unexpected"><span class="hs-identifier hs-var">P.unexpected</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; m VerbosityLevel) -&gt; String -&gt; m VerbosityLevel
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Bad verbosity level: &quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679651956"><span class="hs-identifier hs-var">token</span></a></span><span>
</span><span id="line-205"></span><span>    </span><span id="local-6989586621679651968"><span class="annot"><span class="annottext">parseFlag :: m (Verbosity -&gt; Verbosity)
</span><a href="#local-6989586621679651968"><span class="hs-identifier hs-var hs-var">parseFlag</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-206"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Char -&gt; m Char
forall (m :: * -&gt; *). CharParsing m =&gt; Char -&gt; m Char
</span><a href="Distribution.Compat.CharParsing.html#char"><span class="hs-identifier hs-var">P.char</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'+'</span></span><span>
</span><span id="line-207"></span><span>        </span><span id="local-6989586621679651941"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679651941"><span class="hs-identifier hs-var">token</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; m String
forall (m :: * -&gt; *). CharParsing m =&gt; (Char -&gt; Bool) -&gt; m String
</span><a href="Distribution.Compat.CharParsing.html#munch1"><span class="hs-identifier hs-var">P.munch1</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="Distribution.Utils.Generic.html#isAsciiAlpha"><span class="hs-identifier hs-var">isAsciiAlpha</span></a></span><span>
</span><span id="line-208"></span><span>        </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679651941"><span class="hs-identifier hs-var">token</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-209"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;callsite&quot;</span></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; Verbosity) -&gt; m (Verbosity -&gt; Verbosity)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseCallSite"><span class="hs-identifier hs-var">verboseCallSite</span></a></span><span>
</span><span id="line-210"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;callstack&quot;</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; Verbosity) -&gt; m (Verbosity -&gt; Verbosity)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseCallStack"><span class="hs-identifier hs-var">verboseCallStack</span></a></span><span>
</span><span id="line-211"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;nowrap&quot;</span></span><span>     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; Verbosity) -&gt; m (Verbosity -&gt; Verbosity)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseNoWrap"><span class="hs-identifier hs-var">verboseNoWrap</span></a></span><span>
</span><span id="line-212"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;markoutput&quot;</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; Verbosity) -&gt; m (Verbosity -&gt; Verbosity)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseMarkOutput"><span class="hs-identifier hs-var">verboseMarkOutput</span></a></span><span>
</span><span id="line-213"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;timestamp&quot;</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; Verbosity) -&gt; m (Verbosity -&gt; Verbosity)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseTimestamp"><span class="hs-identifier hs-var">verboseTimestamp</span></a></span><span>
</span><span id="line-214"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;stderr&quot;</span></span><span>     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; Verbosity) -&gt; m (Verbosity -&gt; Verbosity)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseStderr"><span class="hs-identifier hs-var">verboseStderr</span></a></span><span>
</span><span id="line-215"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;stdout&quot;</span></span><span>     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Verbosity -&gt; Verbosity) -&gt; m (Verbosity -&gt; Verbosity)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseNoStderr"><span class="hs-identifier hs-var">verboseNoStderr</span></a></span><span>
</span><span id="line-216"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String -&gt; m (Verbosity -&gt; Verbosity)
forall (m :: * -&gt; *) a. Parsing m =&gt; String -&gt; m a
</span><a href="Distribution.Compat.Parsing.html#unexpected"><span class="hs-identifier hs-var">P.unexpected</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; m (Verbosity -&gt; Verbosity))
-&gt; String -&gt; m (Verbosity -&gt; Verbosity)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Bad verbosity flag: &quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679651941"><span class="hs-identifier hs-var">token</span></a></span><span>
</span><span id="line-217"></span><span>
</span><span id="line-218"></span><span class="annot"><a href="Distribution.Verbosity.html#flagToVerbosity"><span class="hs-identifier hs-type">flagToVerbosity</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.ReadE.html#ReadE"><span class="hs-identifier hs-type">ReadE</span></a></span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-219"></span><span id="flagToVerbosity"><span class="annot"><span class="annottext">flagToVerbosity :: ReadE Verbosity
</span><a href="Distribution.Verbosity.html#flagToVerbosity"><span class="hs-identifier hs-var hs-var">flagToVerbosity</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ParsecParser Verbosity -&gt; ReadE Verbosity
forall a. ShowS -&gt; ParsecParser a -&gt; ReadE a
</span><a href="Distribution.ReadE.html#parsecToReadE"><span class="hs-identifier hs-var">parsecToReadE</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS
forall a. a -&gt; a
</span><a href="../../base/src/GHC.Base.html#id"><span class="hs-identifier hs-var">id</span></a></span><span> </span><span class="annot"><span class="annottext">ParsecParser Verbosity
forall (m :: * -&gt; *). CabalParsing m =&gt; m Verbosity
</span><a href="Distribution.Verbosity.html#parsecVerbosity"><span class="hs-identifier hs-var">parsecVerbosity</span></a></span><span>
</span><span id="line-220"></span><span>
</span><span id="line-221"></span><span class="annot"><a href="Distribution.Verbosity.html#showForCabal"><span class="hs-identifier hs-type">showForCabal</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-222"></span><span id="showForCabal"><span class="annot"><span class="annottext">showForCabal :: Verbosity -&gt; String
</span><a href="Distribution.Verbosity.html#showForCabal"><span class="hs-identifier hs-var hs-var">showForCabal</span></a></span></span><span> </span><span id="local-6989586621679651938"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651938"><span class="hs-identifier hs-var">v</span></a></span></span><span>
</span><span id="line-223"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Set VerbosityFlag -&gt; Bool
forall a. Set a -&gt; Bool
</span><a href="../../containers/src/Data.Set.Internal.html#null"><span class="hs-identifier hs-var">Set.null</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var hs-var">vFlags</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651938"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-224"></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; (Int -&gt; String) -&gt; Maybe Int -&gt; String
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ShowS
forall a. HasCallStack =&gt; String -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;unknown verbosity&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">(Maybe Int -&gt; String) -&gt; Maybe Int -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-225"></span><span>        </span><span class="annot"><span class="annottext">Verbosity -&gt; [Verbosity] -&gt; Maybe Int
forall a. Eq a =&gt; a -&gt; [a] -&gt; Maybe Int
</span><a href="../../base/src/Data.OldList.html#elemIndex"><span class="hs-identifier hs-var">elemIndex</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651938"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#silent"><span class="hs-identifier hs-var">silent</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#normal"><span class="hs-identifier hs-var">normal</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#verbose"><span class="hs-identifier hs-var">verbose</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#deafening"><span class="hs-identifier hs-var">deafening</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-226"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span>
</span><span id="line-227"></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[String] -&gt; String
</span><a href="../../base/src/Data.OldList.html#unwords"><span class="hs-identifier hs-var">unwords</span></a></span><span>
</span><span id="line-228"></span><span>        </span><span class="annot"><span class="annottext">([String] -&gt; String) -&gt; [String] -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel -&gt; String
</span><a href="#local-6989586621679651933"><span class="hs-identifier hs-var">showLevel</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; VerbosityLevel
</span><a href="Distribution.Verbosity.html#vLevel"><span class="hs-identifier hs-var hs-var">vLevel</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651938"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-229"></span><span>        </span><span class="annot"><span class="annottext">String -&gt; [String] -&gt; [String]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">(VerbosityFlag -&gt; [String]) -&gt; [VerbosityFlag] -&gt; [String]
forall (t :: * -&gt; *) a b. Foldable t =&gt; (a -&gt; [b]) -&gt; t a -&gt; [b]
</span><a href="../../base/src/Data.Foldable.html#concatMap"><span class="hs-identifier hs-var">concatMap</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; [String]
</span><a href="#local-6989586621679651931"><span class="hs-identifier hs-var">showFlag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Set VerbosityFlag -&gt; [VerbosityFlag]
forall a. Set a -&gt; [a]
</span><a href="../../containers/src/Data.Set.Internal.html#toList"><span class="hs-identifier hs-var">Set.toList</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var hs-var">vFlags</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651938"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-230"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-231"></span><span>    </span><span id="local-6989586621679651933"><span class="annot"><span class="annottext">showLevel :: VerbosityLevel -&gt; String
</span><a href="#local-6989586621679651933"><span class="hs-identifier hs-var hs-var">showLevel</span></a></span></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Silent"><span class="hs-identifier hs-var">Silent</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;silent&quot;</span></span><span>
</span><span id="line-232"></span><span>    </span><span class="annot"><a href="#local-6989586621679651933"><span class="hs-identifier hs-var">showLevel</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Normal"><span class="hs-identifier hs-var">Normal</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;normal&quot;</span></span><span>
</span><span id="line-233"></span><span>    </span><span class="annot"><a href="#local-6989586621679651933"><span class="hs-identifier hs-var">showLevel</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Verbose"><span class="hs-identifier hs-var">Verbose</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;verbose&quot;</span></span><span>
</span><span id="line-234"></span><span>    </span><span class="annot"><a href="#local-6989586621679651933"><span class="hs-identifier hs-var">showLevel</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityLevel
</span><a href="Distribution.Verbosity.Internal.html#Deafening"><span class="hs-identifier hs-var">Deafening</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;debug&quot;</span></span><span>
</span><span id="line-235"></span><span>
</span><span id="line-236"></span><span>    </span><span id="local-6989586621679651931"><span class="annot"><span class="annottext">showFlag :: VerbosityFlag -&gt; [String]
</span><a href="#local-6989586621679651931"><span class="hs-identifier hs-var hs-var">showFlag</span></a></span></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VCallSite"><span class="hs-identifier hs-var">VCallSite</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;+callsite&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-237"></span><span>    </span><span class="annot"><a href="#local-6989586621679651931"><span class="hs-identifier hs-var">showFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VCallStack"><span class="hs-identifier hs-var">VCallStack</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;+callstack&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-238"></span><span>    </span><span class="annot"><a href="#local-6989586621679651931"><span class="hs-identifier hs-var">showFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VNoWrap"><span class="hs-identifier hs-var">VNoWrap</span></a></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;+nowrap&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-239"></span><span>    </span><span class="annot"><a href="#local-6989586621679651931"><span class="hs-identifier hs-var">showFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VMarkOutput"><span class="hs-identifier hs-var">VMarkOutput</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;+markoutput&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-240"></span><span>    </span><span class="annot"><a href="#local-6989586621679651931"><span class="hs-identifier hs-var">showFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VTimestamp"><span class="hs-identifier hs-var">VTimestamp</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;+timestamp&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-241"></span><span>    </span><span class="annot"><a href="#local-6989586621679651931"><span class="hs-identifier hs-var">showFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VStderr"><span class="hs-identifier hs-var">VStderr</span></a></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;+stderr&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-242"></span><span>
</span><span id="line-243"></span><span class="annot"><a href="Distribution.Verbosity.html#showForGHC"><span class="hs-identifier hs-type">showForGHC</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-244"></span><span id="showForGHC"><span class="annot"><span class="annottext">showForGHC :: Verbosity -&gt; String
</span><a href="Distribution.Verbosity.html#showForGHC"><span class="hs-identifier hs-var hs-var">showForGHC</span></a></span></span><span>   </span><span id="local-6989586621679651923"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651923"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; (Int -&gt; String) -&gt; Maybe Int -&gt; String
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ShowS
forall a. HasCallStack =&gt; String -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;unknown verbosity&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">(Maybe Int -&gt; String) -&gt; Maybe Int -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-245"></span><span>    </span><span class="annot"><span class="annottext">Verbosity -&gt; [Verbosity] -&gt; Maybe Int
forall a. Eq a =&gt; a -&gt; [a] -&gt; Maybe Int
</span><a href="../../base/src/Data.OldList.html#elemIndex"><span class="hs-identifier hs-var">elemIndex</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651923"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#silent"><span class="hs-identifier hs-var">silent</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#normal"><span class="hs-identifier hs-var">normal</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651922"><span class="hs-identifier hs-var">__</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#verbose"><span class="hs-identifier hs-var">verbose</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#deafening"><span class="hs-identifier hs-var">deafening</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-246"></span><span>        </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679651922"><span class="annot"><span class="annottext">__ :: Verbosity
</span><a href="#local-6989586621679651922"><span class="hs-identifier hs-var hs-var">__</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#silent"><span class="hs-identifier hs-var">silent</span></a></span><span> </span><span class="hs-comment">-- this will be always ignored by elemIndex</span><span>
</span><span id="line-247"></span><span>
</span><span id="line-248"></span><span class="hs-comment">-- | Turn on verbose call-site printing when we log.</span><span>
</span><span id="line-249"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseCallSite"><span class="hs-identifier hs-type">verboseCallSite</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-250"></span><span id="verboseCallSite"><span class="annot"><span class="annottext">verboseCallSite :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseCallSite"><span class="hs-identifier hs-var hs-var">verboseCallSite</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseFlag"><span class="hs-identifier hs-var">verboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VCallSite"><span class="hs-identifier hs-var">VCallSite</span></a></span><span>
</span><span id="line-251"></span><span>
</span><span id="line-252"></span><span class="hs-comment">-- | Turn on verbose call-stack printing when we log.</span><span>
</span><span id="line-253"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseCallStack"><span class="hs-identifier hs-type">verboseCallStack</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-254"></span><span id="verboseCallStack"><span class="annot"><span class="annottext">verboseCallStack :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseCallStack"><span class="hs-identifier hs-var hs-var">verboseCallStack</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseFlag"><span class="hs-identifier hs-var">verboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VCallStack"><span class="hs-identifier hs-var">VCallStack</span></a></span><span>
</span><span id="line-255"></span><span>
</span><span id="line-256"></span><span class="hs-comment">-- | Turn on @-----BEGIN CABAL OUTPUT-----@ markers for output</span><span>
</span><span id="line-257"></span><span class="hs-comment">-- from Cabal (as opposed to GHC, or system dependent).</span><span>
</span><span id="line-258"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseMarkOutput"><span class="hs-identifier hs-type">verboseMarkOutput</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-259"></span><span id="verboseMarkOutput"><span class="annot"><span class="annottext">verboseMarkOutput :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseMarkOutput"><span class="hs-identifier hs-var hs-var">verboseMarkOutput</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseFlag"><span class="hs-identifier hs-var">verboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VMarkOutput"><span class="hs-identifier hs-var">VMarkOutput</span></a></span><span>
</span><span id="line-260"></span><span>
</span><span id="line-261"></span><span class="hs-comment">-- | Turn off marking; useful for suppressing nondeterministic output.</span><span>
</span><span id="line-262"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseUnmarkOutput"><span class="hs-identifier hs-type">verboseUnmarkOutput</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-263"></span><span id="verboseUnmarkOutput"><span class="annot"><span class="annottext">verboseUnmarkOutput :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseUnmarkOutput"><span class="hs-identifier hs-var hs-var">verboseUnmarkOutput</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseNoFlag"><span class="hs-identifier hs-var">verboseNoFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VMarkOutput"><span class="hs-identifier hs-var">VMarkOutput</span></a></span><span>
</span><span id="line-264"></span><span>
</span><span id="line-265"></span><span class="hs-comment">-- | Disable line-wrapping for log messages.</span><span>
</span><span id="line-266"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseNoWrap"><span class="hs-identifier hs-type">verboseNoWrap</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-267"></span><span id="verboseNoWrap"><span class="annot"><span class="annottext">verboseNoWrap :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseNoWrap"><span class="hs-identifier hs-var hs-var">verboseNoWrap</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseFlag"><span class="hs-identifier hs-var">verboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VNoWrap"><span class="hs-identifier hs-var">VNoWrap</span></a></span><span>
</span><span id="line-268"></span><span>
</span><span id="line-269"></span><span class="hs-comment">-- | Mark the verbosity as quiet</span><span>
</span><span id="line-270"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseQuiet"><span class="hs-identifier hs-type">verboseQuiet</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-271"></span><span id="verboseQuiet"><span class="annot"><span class="annottext">verboseQuiet :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseQuiet"><span class="hs-identifier hs-var hs-var">verboseQuiet</span></a></span></span><span> </span><span id="local-6989586621679651919"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651919"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651919"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">vQuiet :: Bool
</span><a href="Distribution.Verbosity.html#vQuiet"><span class="hs-identifier hs-var">vQuiet</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-272"></span><span>
</span><span id="line-273"></span><span class="hs-comment">-- | Turn on timestamps for log messages.</span><span>
</span><span id="line-274"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseTimestamp"><span class="hs-identifier hs-type">verboseTimestamp</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-275"></span><span id="verboseTimestamp"><span class="annot"><span class="annottext">verboseTimestamp :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseTimestamp"><span class="hs-identifier hs-var hs-var">verboseTimestamp</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseFlag"><span class="hs-identifier hs-var">verboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VTimestamp"><span class="hs-identifier hs-var">VTimestamp</span></a></span><span>
</span><span id="line-276"></span><span>
</span><span id="line-277"></span><span class="hs-comment">-- | Turn off timestamps for log messages.</span><span>
</span><span id="line-278"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseNoTimestamp"><span class="hs-identifier hs-type">verboseNoTimestamp</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-279"></span><span id="verboseNoTimestamp"><span class="annot"><span class="annottext">verboseNoTimestamp :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseNoTimestamp"><span class="hs-identifier hs-var hs-var">verboseNoTimestamp</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseNoFlag"><span class="hs-identifier hs-var">verboseNoFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VTimestamp"><span class="hs-identifier hs-var">VTimestamp</span></a></span><span>
</span><span id="line-280"></span><span>
</span><span id="line-281"></span><span class="hs-comment">-- | Turn on timestamps for log messages.</span><span>
</span><span id="line-282"></span><span class="hs-comment">--</span><span>
</span><span id="line-283"></span><span class="hs-comment">-- @since 3.4.0.0</span><span>
</span><span id="line-284"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseStderr"><span class="hs-identifier hs-type">verboseStderr</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-285"></span><span id="verboseStderr"><span class="annot"><span class="annottext">verboseStderr :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseStderr"><span class="hs-identifier hs-var hs-var">verboseStderr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseFlag"><span class="hs-identifier hs-var">verboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VStderr"><span class="hs-identifier hs-var">VStderr</span></a></span><span>
</span><span id="line-286"></span><span>
</span><span id="line-287"></span><span class="hs-comment">-- | Turn off timestamps for log messages.</span><span>
</span><span id="line-288"></span><span class="hs-comment">--</span><span>
</span><span id="line-289"></span><span class="hs-comment">-- @since 3.4.0.0</span><span>
</span><span id="line-290"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseNoStderr"><span class="hs-identifier hs-type">verboseNoStderr</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-291"></span><span id="verboseNoStderr"><span class="annot"><span class="annottext">verboseNoStderr :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseNoStderr"><span class="hs-identifier hs-var hs-var">verboseNoStderr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseNoFlag"><span class="hs-identifier hs-var">verboseNoFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VStderr"><span class="hs-identifier hs-var">VStderr</span></a></span><span>
</span><span id="line-292"></span><span>
</span><span id="line-293"></span><span class="hs-comment">-- | Helper function for flag enabling functions</span><span>
</span><span id="line-294"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseFlag"><span class="hs-identifier hs-type">verboseFlag</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.Internal.html#VerbosityFlag"><span class="hs-identifier hs-type">VerbosityFlag</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-295"></span><span id="verboseFlag"><span class="annot"><span class="annottext">verboseFlag :: VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseFlag"><span class="hs-identifier hs-var hs-var">verboseFlag</span></a></span></span><span> </span><span id="local-6989586621679651918"><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="#local-6989586621679651918"><span class="hs-identifier hs-var">flag</span></a></span></span><span> </span><span id="local-6989586621679651917"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651917"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651917"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">vFlags :: Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var">vFlags</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Set VerbosityFlag -&gt; Set VerbosityFlag
forall a. Ord a =&gt; a -&gt; Set a -&gt; Set a
</span><a href="../../containers/src/Data.Set.Internal.html#insert"><span class="hs-identifier hs-var">Set.insert</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="#local-6989586621679651918"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var hs-var">vFlags</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651917"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-296"></span><span>
</span><span id="line-297"></span><span class="hs-comment">-- | Helper function for flag disabling functions</span><span>
</span><span id="line-298"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseNoFlag"><span class="hs-identifier hs-type">verboseNoFlag</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.Internal.html#VerbosityFlag"><span class="hs-identifier hs-type">VerbosityFlag</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-299"></span><span id="verboseNoFlag"><span class="annot"><span class="annottext">verboseNoFlag :: VerbosityFlag -&gt; Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseNoFlag"><span class="hs-identifier hs-var hs-var">verboseNoFlag</span></a></span></span><span> </span><span id="local-6989586621679651915"><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="#local-6989586621679651915"><span class="hs-identifier hs-var">flag</span></a></span></span><span> </span><span id="local-6989586621679651914"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651914"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651914"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">vFlags :: Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var">vFlags</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Set VerbosityFlag -&gt; Set VerbosityFlag
forall a. Ord a =&gt; a -&gt; Set a -&gt; Set a
</span><a href="../../containers/src/Data.Set.Internal.html#delete"><span class="hs-identifier hs-var">Set.delete</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="#local-6989586621679651915"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var hs-var">vFlags</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651914"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-300"></span><span>
</span><span id="line-301"></span><span class="hs-comment">-- | Turn off all flags</span><span>
</span><span id="line-302"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseNoFlags"><span class="hs-identifier hs-type">verboseNoFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-303"></span><span id="verboseNoFlags"><span class="annot"><span class="annottext">verboseNoFlags :: Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseNoFlags"><span class="hs-identifier hs-var hs-var">verboseNoFlags</span></a></span></span><span> </span><span id="local-6989586621679651912"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651912"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679651912"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">vFlags :: Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var">vFlags</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Set VerbosityFlag
forall a. Set a
</span><a href="../../containers/src/Data.Set.Internal.html#empty"><span class="hs-identifier hs-var">Set.empty</span></a></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-304"></span><span>
</span><span id="line-305"></span><span class="annot"><a href="Distribution.Verbosity.html#verboseHasFlags"><span class="hs-identifier hs-type">verboseHasFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-306"></span><span id="verboseHasFlags"><span class="annot"><span class="annottext">verboseHasFlags :: Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#verboseHasFlags"><span class="hs-identifier hs-var hs-var">verboseHasFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool
</span><span class="hs-identifier hs-var">not</span></span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; Bool) -&gt; (Verbosity -&gt; Bool) -&gt; Verbosity -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Set VerbosityFlag -&gt; Bool
forall a. Set a -&gt; Bool
</span><a href="../../containers/src/Data.Set.Internal.html#null"><span class="hs-identifier hs-var">Set.null</span></a></span><span> </span><span class="annot"><span class="annottext">(Set VerbosityFlag -&gt; Bool)
-&gt; (Verbosity -&gt; Set VerbosityFlag) -&gt; Verbosity -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var hs-var">vFlags</span></a></span><span>
</span><span id="line-307"></span><span>
</span><span id="line-308"></span><span class="hs-comment">-- | Test if we should output call sites when we log.</span><span>
</span><span id="line-309"></span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseCallSite"><span class="hs-identifier hs-type">isVerboseCallSite</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-310"></span><span id="isVerboseCallSite"><span class="annot"><span class="annottext">isVerboseCallSite :: Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseCallSite"><span class="hs-identifier hs-var hs-var">isVerboseCallSite</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseFlag"><span class="hs-identifier hs-var">isVerboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VCallSite"><span class="hs-identifier hs-var">VCallSite</span></a></span><span>
</span><span id="line-311"></span><span>
</span><span id="line-312"></span><span class="hs-comment">-- | Test if we should output call stacks when we log.</span><span>
</span><span id="line-313"></span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseCallStack"><span class="hs-identifier hs-type">isVerboseCallStack</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-314"></span><span id="isVerboseCallStack"><span class="annot"><span class="annottext">isVerboseCallStack :: Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseCallStack"><span class="hs-identifier hs-var hs-var">isVerboseCallStack</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseFlag"><span class="hs-identifier hs-var">isVerboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VCallStack"><span class="hs-identifier hs-var">VCallStack</span></a></span><span>
</span><span id="line-315"></span><span>
</span><span id="line-316"></span><span class="hs-comment">-- | Test if we should output markets.</span><span>
</span><span id="line-317"></span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseMarkOutput"><span class="hs-identifier hs-type">isVerboseMarkOutput</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-318"></span><span id="isVerboseMarkOutput"><span class="annot"><span class="annottext">isVerboseMarkOutput :: Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseMarkOutput"><span class="hs-identifier hs-var hs-var">isVerboseMarkOutput</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseFlag"><span class="hs-identifier hs-var">isVerboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VMarkOutput"><span class="hs-identifier hs-var">VMarkOutput</span></a></span><span>
</span><span id="line-319"></span><span>
</span><span id="line-320"></span><span class="hs-comment">-- | Test if line-wrapping is disabled for log messages.</span><span>
</span><span id="line-321"></span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseNoWrap"><span class="hs-identifier hs-type">isVerboseNoWrap</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-322"></span><span id="isVerboseNoWrap"><span class="annot"><span class="annottext">isVerboseNoWrap :: Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseNoWrap"><span class="hs-identifier hs-var hs-var">isVerboseNoWrap</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseFlag"><span class="hs-identifier hs-var">isVerboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VNoWrap"><span class="hs-identifier hs-var">VNoWrap</span></a></span><span>
</span><span id="line-323"></span><span>
</span><span id="line-324"></span><span class="hs-comment">-- | Test if we had called 'lessVerbose' on the verbosity</span><span>
</span><span id="line-325"></span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseQuiet"><span class="hs-identifier hs-type">isVerboseQuiet</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-326"></span><span id="isVerboseQuiet"><span class="annot"><span class="annottext">isVerboseQuiet :: Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseQuiet"><span class="hs-identifier hs-var hs-var">isVerboseQuiet</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#vQuiet"><span class="hs-identifier hs-var hs-var">vQuiet</span></a></span><span>
</span><span id="line-327"></span><span>
</span><span id="line-328"></span><span class="hs-comment">-- | Test if we should output timestamps when we log.</span><span>
</span><span id="line-329"></span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseTimestamp"><span class="hs-identifier hs-type">isVerboseTimestamp</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-330"></span><span id="isVerboseTimestamp"><span class="annot"><span class="annottext">isVerboseTimestamp :: Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseTimestamp"><span class="hs-identifier hs-var hs-var">isVerboseTimestamp</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseFlag"><span class="hs-identifier hs-var">isVerboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VTimestamp"><span class="hs-identifier hs-var">VTimestamp</span></a></span><span>
</span><span id="line-331"></span><span>
</span><span id="line-332"></span><span class="hs-comment">-- | Test if we should output to stderr when we log.</span><span>
</span><span id="line-333"></span><span class="hs-comment">--</span><span>
</span><span id="line-334"></span><span class="hs-comment">-- @since 3.4.0.0</span><span>
</span><span id="line-335"></span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseStderr"><span class="hs-identifier hs-type">isVerboseStderr</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-336"></span><span id="isVerboseStderr"><span class="annot"><span class="annottext">isVerboseStderr :: Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseStderr"><span class="hs-identifier hs-var hs-var">isVerboseStderr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseFlag"><span class="hs-identifier hs-var">isVerboseFlag</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="Distribution.Verbosity.Internal.html#VStderr"><span class="hs-identifier hs-var">VStderr</span></a></span><span>
</span><span id="line-337"></span><span>
</span><span id="line-338"></span><span class="hs-comment">-- | Helper function for flag testing functions.</span><span>
</span><span id="line-339"></span><span class="annot"><a href="Distribution.Verbosity.html#isVerboseFlag"><span class="hs-identifier hs-type">isVerboseFlag</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.Internal.html#VerbosityFlag"><span class="hs-identifier hs-type">VerbosityFlag</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-340"></span><span id="isVerboseFlag"><span class="annot"><span class="annottext">isVerboseFlag :: VerbosityFlag -&gt; Verbosity -&gt; Bool
</span><a href="Distribution.Verbosity.html#isVerboseFlag"><span class="hs-identifier hs-var hs-var">isVerboseFlag</span></a></span></span><span> </span><span id="local-6989586621679651909"><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="#local-6989586621679651909"><span class="hs-identifier hs-var">flag</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">VerbosityFlag -&gt; Set VerbosityFlag -&gt; Bool
forall a. Ord a =&gt; a -&gt; Set a -&gt; Bool
</span><a href="../../containers/src/Data.Set.Internal.html#member"><span class="hs-identifier hs-var">Set.member</span></a></span><span> </span><span class="annot"><span class="annottext">VerbosityFlag
</span><a href="#local-6989586621679651909"><span class="hs-identifier hs-var">flag</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Set VerbosityFlag -&gt; Bool)
-&gt; (Verbosity -&gt; Set VerbosityFlag) -&gt; Verbosity -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; Set VerbosityFlag
</span><a href="Distribution.Verbosity.html#vFlags"><span class="hs-identifier hs-var hs-var">vFlags</span></a></span><span>
</span><span id="line-341"></span><span>
</span><span id="line-342"></span><span class="hs-comment">-- $setup</span><span>
</span><span id="line-343"></span><span class="hs-comment">-- &gt;&gt;&gt; import Test.QuickCheck (Arbitrary (..), arbitraryBoundedEnum)</span><span>
</span><span id="line-344"></span><span class="hs-comment">-- &gt;&gt;&gt; instance Arbitrary VerbosityLevel where arbitrary = arbitraryBoundedEnum</span><span>
</span><span id="line-345"></span><span class="hs-comment">-- &gt;&gt;&gt; instance Arbitrary Verbosity where arbitrary = fmap mkVerbosity arbitrary</span><span>
</span><span id="line-346"></span></pre></body></html>